'!TITLE "<Title>"
PROGRAM Pro19

TAKEARM

DEFINT No_pts = 9, P_st = 20                      
DEFINT Ii2  

APPROACH P, P20, @E 100, S=80

FOR Ii2 = P_st TO (P_st + No_Pts - 1)

  EXTSPEED I[Ii2]
  'MOVE L,@5 P[Ii2], S=I[Ii2]
  MOVE L,@5 P[Ii2], S=100

NEXT


END
